home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aas.d64 / dots (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  370 lines
  1. 10 REM***DOTS-BY RICK ANDING-ATLANTA****
  2. 20 REM***FOR MY CHILDRENS  ENTERTAINMENT*******
  3. 25 PRINT"[147]"
  4. 30 REM****DISABLE THE STOP BUTTON
  5. 35 POKE808,239
  6. 39 REM********THE 1ST SCREEN************
  7. 40 L=1:A=1064:B=1103:C=2023:D=1984
  8. 50 POKE 53280,0:POKE53281,0:FOR F=1 TO 1000:NEXT F:FOR X=1 TO 12
  9. 60 FOR I=A TO B
  10. 70 POKE I,81
  11. 80 POKE 54272+I,L
  12. 90 L=L+1
  13. 100 IF L=16 THEN L=1
  14. 105 NEXT I
  15. 108 B=B+40:A=A+40
  16. 110 FOR I=B TO C STEP 40
  17. 120 POKE I,81
  18. 130 POKE 54272+I,L
  19. 140 L=L+1
  20. 160 IF L=16 THEN L=1
  21. 170 NEXT I
  22. 180 C=C-1:B=B-1
  23. 210 FOR I=C TO D STEP -1
  24. 220 POKE I,81
  25. 230 POKE 54272+I,L
  26. 240 L=L+1
  27. 260 IF L=16 THEN L=1
  28. 270 NEXT I
  29. 280 C=C-40:D=D-40
  30. 310 FOR I=D TO A STEP -40
  31. 320 POKE I,81
  32. 330 POKE 54272+I,L
  33. 340 L=L+1
  34. 360 IF L=16 THEN L=1
  35. 370 NEXT I
  36. 380 A=A+1:D=D+1
  37. 390 NEXT X
  38. 400 L=0:A=1064:B=1103:C=2023:D=1984
  39. 405 FOR X=1 TO 12
  40. 410 FOR I=A TO B
  41. 420 POKE I,32
  42. 430 POKE 54272+I,L
  43. 440 FOR T=1 TO 2:NEXT T
  44. 470 NEXT I
  45. 480 B=B+40:A=A+40
  46. 510 FOR I=B TO C STEP 40
  47. 520 POKE I,32
  48. 530 POKE 54272+I,L
  49. 540 FOR T=1 TO 2:NEXT T
  50. 570 NEXT I
  51. 580 C=C-1:B=B-1
  52. 610 FOR I=C TO D STEP -1
  53. 620 POKE I,32
  54. 630 POKE 54272+I,L
  55. 640 FOR T=1 TO 2:NEXT T
  56. 670 NEXT I
  57. 680 C=C-40:D=D-40
  58. 710 FOR I=D TO A STEP -40
  59. 720 POKE I,32
  60. 730 POKE 54272+I,L
  61. 740 FOR T=1 TO 2:NEXT T
  62. 770 NEXT I
  63. 780 A=A+1:D=D+1
  64. 790 NEXT X
  65. 800 FOR X=1 TO 600:NEXT
  66. 4000 REM******THE 2ND SCREEN************
  67. 4005 L=1:A=1064:B=1103
  68. 4010 FOR Y=1 TO 2
  69. 4020 FOR Z=1 TO 6
  70. 4025 FOR I=A TO B
  71. 4030 POKE I,81
  72. 4040 POKE 54272+I,L
  73. 4050 L=L+1
  74. 4060 IF L=16 THEN L=1
  75. 4070 NEXT I
  76. 4073 FOR N=B TO A STEP-1
  77. 4080 A=A+80:B=B+80
  78. 4083 FOR N=B TO A STEP -1
  79. 4084 POKE N,81
  80. 4085 POKE 54272+N,L
  81. 4086 L=L+1
  82. 4087 IF L=16 THEN L=1
  83. 4088 NEXT N
  84. 4089 A=A+80:B=B+80
  85. 4090 NEXT Z
  86. 4100 A=1104:B=1143
  87. 4105 NEXT Y
  88. 4110 L=1:A=1064:B=1103
  89. 4115 FOR Y=1 TO 2
  90. 4120 FOR Z=1 TO 6
  91. 4125 FOR I=A TO B
  92. 4130 POKE I,32
  93. 4140 POKE 54272+I,L
  94. 4170 NEXT I
  95. 4172 A=A+80:B=B+80
  96. 4173 FOR N=B TO A STEP-1
  97. 4174 POKE N,32
  98. 4175 POKE 54272+N,L
  99. 4176 NEXT N
  100. 4180 A=A+80:B=B+80
  101. 4190 NEXT Z
  102. 4195 A=1104:B=1143
  103. 4200 NEXT Y
  104. 4210 FOR X=1 TO 600:NEXT
  105. 6000 REM*******THE 3RD SCREEN***********
  106. 6005 L=1:A=1064:B=1067:C=1187:D=1184
  107. 6010 FOR Z=1 TO 70
  108. 6020 FOR I=A TO B
  109. 6030 POKE I,81
  110. 6040 POKE 54272+I,L
  111. 6050 L=L+1
  112. 6060 IF L=16 THEN L=1
  113. 6070 NEXT I
  114. 6080 FOR I=B TO C STEP 40
  115. 6090 POKE I,81
  116. 6100 POKE 54272+I,L
  117. 6110 L=L+1
  118. 6120 IF L=16 THEN L=1
  119. 6130 NEXT I
  120. 6140 FOR I=C TO D STEP -1
  121. 6150 POKE I,81
  122. 6160 POKE 54272+I,L
  123. 6170 L=L+1
  124. 6180 IF L=16 THEN L=1
  125. 6190 NEXT I
  126. 6200 FOR I=D TO A STEP -40
  127. 6210 POKE I,81
  128. 6230 POKE 54272+I,L
  129. 6240 L=L+1
  130. 6250 IF L=16 THEN L=1
  131. 6260 NEXT I
  132. 6270 A=A+12:B=B+12:C=C+12:D=D+12
  133. 6280 NEXT Z
  134. 6300 L=0:A=1064:B=1067:C=1187:D=1184
  135. 6310 FOR Z=1 TO 70
  136. 6320 FOR I=A TO B
  137. 6330 POKE I,32
  138. 6340 POKE 54272+I,L
  139. 6370 NEXT I
  140. 6380 FOR I=B TO C STEP 40
  141. 6390 POKE I,32
  142. 6400 POKE 54272+I,L
  143. 6430 NEXT I
  144. 6440 FOR I=C TO D STEP -1
  145. 6450 POKE I,32
  146. 6460 POKE 54272+I,L
  147. 6490 NEXT I
  148. 6500 FOR I=D TO A STEP -40
  149. 6510 POKE I,32
  150. 6530 POKE 54272+I,L
  151. 6560 NEXT I
  152. 6570 A=A+12:B=B+12:C=C+12:D=D+12
  153. 6580 NEXT Z
  154. 7208 FOR X=1 TO 600:NEXT X
  155. 7210 REM*********THE 4TH SCREEN*********
  156. 7215 L=1:A=1064:B=1944
  157. 7220 FOR Z=1 TO 14
  158. 7225 FOR I=A TO B STEP 40
  159. 7230 POKE I,81
  160. 7240 POKE 54272+I,L
  161. 7250 L=L+1
  162. 7260 IF L=16 THEN L=1
  163. 7270 NEXT I
  164. 7280 A=A+3:B=B+3
  165. 7290 NEXTZ
  166. 7310 L=1:A=1064:B=1103
  167. 7320 FOR Z=1 TO 6
  168. 7325 FOR I=B TO A STEP -1
  169. 7330 POKE I,81
  170. 7340 POKE 54272+I,L
  171. 7350 L=L+1
  172. 7360 IF L=16 THEN L=1
  173. 7370 NEXT I
  174. 7380 A=A+80:B=B+80
  175. 7382 FOR N=A TO B
  176. 7384 POKE N,81
  177. 7385 POKE 54272+N,L
  178. 7386 L=L+1
  179. 7387 IF L=16 THEN L=1
  180. 7388 NEXT N
  181. 7389 A=A+80:B=B+80
  182. 7390 NEXT Z
  183. 7410 L=1:A=1064:B=1984
  184. 7420 FOR Z=1 TO 20
  185. 7425 FOR I=A TO B STEP 40
  186. 7430 POKE I,32
  187. 7440 POKE 54272+I,L
  188. 7470 NEXT I
  189. 7480 A=A+2:B=B+2
  190. 7490 NEXTZ
  191. 7510 L=1:A=1064:B=1103:C=1944:D=1983
  192. 7520 FOR Z=1 TO 6
  193. 7525 FOR I=A TO B
  194. 7530 POKE I,32
  195. 7540 POKE 54272+I,L
  196. 7570 NEXT I
  197. 7580 A=A+80:B=B+80
  198. 7625 FOR K=C TO D
  199. 7630 POKE K,32
  200. 7640 POKE 54272+K,L
  201. 7670 NEXT K
  202. 7680 C=C-80:D=D-80
  203. 7700 NEXT Z
  204. 7705 FOR X=1 TO 800:NEXT
  205. 7710 L=1:A=1104:B=1143:C=1904:D=1943
  206. 7720 FOR Z=1 TO 5
  207. 7725 FOR I=A TO B
  208. 7730 POKE I,32
  209. 7740 POKE 54272+I,L
  210. 7770 NEXT I
  211. 7780 A=A+80:B=B+80
  212. 7825 FOR K=C TO D
  213. 7830 POKE K,32
  214. 7840 POKE 54272+K,L
  215. 7870 NEXT K
  216. 7880 C=C-80:D=D-80
  217. 7900 NEXT Z
  218. 7905 FOR X=1 TO 500:NEXT
  219. 7910 A=1507:B=1543
  220. 7920 FOR Z=1 TO 3
  221. 7930 POKE A,32
  222. 7940 POKE 54272+A,0
  223. 7950 FOR X=1 TO 250:NEXT X
  224. 7960 POKE B,32
  225. 7970 POKE 54272+B,0
  226. 7975 A=A+6:B=B-6
  227. 7980 FOR X=1 TO 250:NEXT X
  228. 7985 NEXT Z
  229. 7990 FOR X=1 TO 600:NEXT X
  230. 7995 PRINT"[147]"
  231. 8999 REM****THE 5TH AND FINAL SCREEN****
  232. 9000 POKE 646,1:FOR X=1 TO 1000:NEXT
  233. 9010 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  234. 9020 PRINT TAB(15)"ALL GONE!";:FOR X=1 TO 1800:NEXT
  235. 9040 L=1:A=1064:B=1103:C=2023:D=1984
  236. 9050 FOR I=A TO B
  237. 9060 POKE I,81
  238. 9070 POKE 54272+I,L
  239. 9080 L=L+1
  240. 9100 IF L=16 THEN L=1
  241. 9110 NEXT I
  242. 9120 B=B+40:A=A+40
  243. 9130 FOR I=B TO C STEP 40
  244. 9140 POKE I,81
  245. 9150 POKE 54272+I,L
  246. 9160 L=L+1
  247. 9170 IF L=6 THEN L=7
  248. 9180 IF L=16 THEN L=1
  249. 9190 NEXT I
  250. 9200 B=B-1:C=C-1
  251. 9210 FOR I=C TO D STEP -1
  252. 9220 POKE I,81
  253. 9230 POKE 54272+I,L
  254. 9240 L=L+1
  255. 9260 IF L=16 THEN L=1
  256. 9270 NEXT I
  257. 9280 C=C-40:D=D-40
  258. 9290 FOR I=D TO A STEP -40
  259. 9320 POKE I,81
  260. 9330 POKE 54272+I,L
  261. 9340 L=L+1
  262. 9360 IF L=16 THEN L=1
  263. 9370 NEXT I
  264. 9380 A=A+1:D=D+1
  265. 9385 FOR X=1 TO 800:NEXT
  266. 9390 FOR I=1476 TO 1490
  267. 9400 POKE I,81
  268. 9410 POKE 54272+I,L
  269. 9420 L=L+1
  270. 9430 IF L=16 THEN L=1
  271. 9440 NEXT I
  272. 9450 FOR I=1530TO 1650 STEP 40
  273. 9460 POKE I,81
  274. 9470 POKE 54272+I,L
  275. 9480 L=L+1
  276. 9490 IF L=16 THEN L=1
  277. 9500 NEXT I
  278. 9510 FOR I=1649 TO 1636 STEP -1
  279. 9520 POKE I,81
  280. 9530 POKE 54272+I,L
  281. 9540 L=L+1
  282. 9550 IF L=16 THEN L=1
  283. 9560 NEXT I
  284. 9590 FOR I=1636 TO 1476 STEP -40
  285. 9600 POKE I,81
  286. 9610 POKE 54272+I,L
  287. 9620 L=L+1
  288. 9630 IF L=16 THEN L=1
  289. 9640 NEXT I
  290. 9641 FOR X=1 TO 800:NEXT
  291. 9642 FOR W=1 TO 4
  292. 9643 PRINT"[157][157][157][157][157][157][157][157][157][150]ALL GONE!";
  293. 9645 FOR X=1 TO 200:NEXT X
  294. 9647 PRINT"[157][157][157][157][157][157][157][157][157][158]ALL GONE!";
  295. 9650 FOR X=1 TO 200:NEXT X
  296. 9652 PRINT"[157][157][157][157][157][157][157][157][157][154]ALL GONE!";
  297. 9654 FOR X=1 TO 200:NEXT X
  298. 9656 PRINT"[157][157][157][157][157][157][157][157][157]ALL GONE!";
  299. 9658 FOR X=1 TO 200:NEXT X
  300. 9660 NEXT W
  301. 9662 FOR M=1 TO 3
  302. 9664 L=L+1:A=1064:B=1103:C=2023:D=1984
  303. 9666 IF L=16 THEN L=1
  304. 9668 FOR I=A TO B
  305. 9670 POKE I,81
  306. 9680 POKE 54272+I,L
  307. 9690 L=L+1
  308. 9700 IF L=16 THEN L=1
  309. 9710 NEXT I
  310. 9720 B=B+40:A=A+40
  311. 9730 FOR I=B TO C STEP 40
  312. 9740 POKE I,81
  313. 9750 POKE 54272+I,L
  314. 9760 L=L+1
  315. 9770 IF L=6 THEN L=7
  316. 9780 IF L=16 THEN L=1
  317. 9790 NEXT I
  318. 9800 C=C-1:B=B-1
  319. 9810 FOR I=C TO D STEP -1
  320. 9820 POKE I,81
  321. 9830 POKE 54272+I,L
  322. 9840 L=L+1
  323. 9860 IF L=16 THEN L=1
  324. 9870 NEXT I
  325. 9880 C=C-40:D=D-40
  326. 9885 FOR I=D TO A STEP -40
  327. 9900 POKE I,81
  328. 9910 POKE 54272+I,L
  329. 9915 L=L+1
  330. 9930 IF L=16 THEN L=1
  331. 9940 NEXT I
  332. 9950 NEXT M
  333. 9960 FOR V=1 TO 200:NEXT
  334. 9970 FOR J=1 TO 8
  335. 10000 FOR I=1476 TO 1636 STEP 40
  336. 10010 POKE I,81
  337. 10020 POKE 54272+I,L
  338. 10030 L=L+1
  339. 10040 IF L=16 THEN L=1
  340. 10050 NEXT I
  341. 10060 FOR I=1637 TO 1650
  342. 10070 POKE I,81
  343. 10080 POKE 54272+I,L
  344. 10090 L=L+1
  345. 10100 IF L=16 THEN L=1
  346. 10110 NEXT I
  347. 10120 FOR I=1610 TO 1490 STEP-40
  348. 10130 POKE I,81
  349. 10140 POKE 54272+I,L
  350. 10150 L=L+1
  351. 10160 IF L=16 THEN L=1
  352. 10170 NEXT I
  353. 10180 FOR I=1489 TO 1477 STEP-1
  354. 10190 POKE I,81
  355. 10200 POKE 54272+I,L
  356. 10210 L=L+1
  357. 10220 IF L=16 THEN L=1
  358. 10230 NEXT I
  359. 10240 NEXT J:FOR X=1 TO 1000:NEXT X:POKE 53280,6
  360. 10245 FOR X=1 TO 2000:NEXT:POKE 53281,6
  361. 10250 PRINT"[147]":FOR X=1 TO 1000:NEXT X:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  362. 10260 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT TAB(15)"[155]RUN AGAIN?"
  363. 10270 PRINT:INPUT"                Y OR N";A$
  364. 10280 IF A$="Y"OR A$="YES" THEN GOTO40
  365. 10350 FOR X=1 TO 1000:NEXT
  366. 10354 REM******ENABLE THE STOP BUTTON***
  367. 10355 POKE 808,237
  368. 10360 PRINT""
  369. 10370 END
  370.